home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / t_os / komei4 / komei4.exe / ICON / B_CMD.HD6 < prev    next >
Text File  |  1993-06-17  |  4KB  |  321 lines
  1. ds_name        db    'MOJ\B_CMD',0
  2.  
  3.  
  4. ; 前の色を示すだけ
  5. ; カラーボックスの下に二つ並んだ大きい方の箱
  6.  
  7. ; CONTEN より呼ばれて､色を変える
  8.  
  9. paint_wd:
  10.  
  11.     SET_P    dt1
  12.     SET_P    dt2
  13.     SET_P    dt3
  14.     SET_P    dt4
  15.     SET_P    dt5
  16.     SET_P    dt6
  17.     SET_P    dt7
  18.     SET_P    dt8
  19.     SET_P    dt9
  20.     SET_P    dt10
  21.     SET_P    dt11
  22.     SET_P    dt12
  23.     SET_P    dt13
  24.  
  25.     SET_P    dt_bu1
  26.     SET_P    dt_i_ha
  27.     SET_P    dt_nao_g
  28.     SET_P    dt_fzz
  29.     SET_P    dt_stop1
  30.     SET_P    dt_gazld
  31.     SET_P    dt_switch
  32.     SET_P    dt_ongak
  33.     SET_P    dt_end1
  34.     SET_P    dt_to_k
  35.     SET_P    dt_roll
  36.  
  37. re_paint:
  38.      WD_CLS 0
  39.      BOX boxdt,2
  40.      MOZI    mozidt
  41.  
  42.      ret
  43.  
  44. be_called:
  45.     YOMU    ax,300
  46.     cmp    ax,400
  47.     je    neru
  48.     cmp    ax,500
  49.     je    okiru
  50.     ret
  51. neru:
  52.     WD_ERZ 1
  53.     WD_ERZ 0
  54.     WD_LEFT
  55.     ret
  56. okiru:
  57.     WD_WANT
  58.     jmp    re_paint
  59.  
  60.  
  61. mouse_in:
  62.     cmp    ch,1
  63.     je    f_1
  64.     ret
  65. f_1:
  66.     MOU    boxdt,2
  67.     cmp    bx,1
  68.     je    f_2
  69.     ret
  70. f_2:
  71.     cmp    ax,1
  72.     je    tukuru
  73.     cmp    ax,2
  74.     je    seiri
  75.     ret
  76.  
  77. tukuru:
  78.     mov    ah,25
  79.     mov    al,2    ; cls
  80.     mov    bx,0
  81.     call    komei
  82.  
  83.     mov    ah,25
  84.     mov    al,2    ; cls
  85.     mov    bx,1
  86.     call    komei
  87.  
  88.     KAKU    word ptr 300,400
  89.     CALL_P    dt_bu1
  90.     CALL_P    dt_i_ha
  91.     CALL_P    dt_nao_g
  92.     CALL_P    dt_fzz
  93.     CALL_P    dt_gazld
  94.     
  95.  
  96.     KAKU    word ptr 300,500
  97.  
  98.     CALL_P    dt1
  99.     CALL_P    dt2
  100.     CALL_P    dt3
  101.     CALL_P    dt4
  102.     CALL_P    dt5
  103.     CALL_P    dt6
  104.     CALL_P    dt7
  105.     CALL_P    dt8
  106.     CALL_P    dt9
  107.     CALL_P    dt10
  108.     CALL_P    dt11
  109.  
  110.     CALL_P    dt12
  111.     CALL_P    dt13
  112.     CALL_P    dt_switch
  113.     CALL_P    dt_stop1
  114.     CALL_P    dt_to_k
  115.     CALL_P    dt_roll
  116.  
  117.     KAKU    word ptr 300,1
  118.     KAKU    word ptr 302,1    ;一曲目のデータセット
  119.     CALL_P    dt_ongak
  120.  
  121.     KAKU    word ptr 300,2    ; 音楽チェンジ
  122.     CALL_P    dt_end1
  123.  
  124.     jmp    re_paint
  125.  
  126. seiri:
  127.     mov    ah,25
  128.     mov    al,2    ; cls
  129.     mov    bx,0
  130.     call    komei
  131.  
  132.     mov    ah,25
  133.     mov    al,2    ; cls
  134.     mov    bx,1
  135.     call    komei
  136.  
  137.     KAKU    word ptr 300,400
  138.  
  139.     CALL_P    dt2
  140.     CALL_P    dt3
  141.     CALL_P    dt4
  142.     CALL_P    dt5
  143.     CALL_P    dt7
  144.     CALL_P    dt8
  145.     CALL_P    dt9
  146.     CALL_P    dt10
  147.     CALL_P    dt11
  148.     CALL_P    dt_roll
  149.  
  150.     KAKU    word ptr 300,500
  151.  
  152.     CALL_P    dt1
  153.     CALL_P    dt6
  154.     CALL_P    dt12
  155.     CALL_P    dt13
  156.     CALL_P    dt_bu1
  157.     CALL_P    dt_i_ha
  158.     CALL_P    dt_nao_g
  159.     CALL_P    dt_fzz
  160.     CALL_P    dt_switch
  161.     CALL_P    dt_stop1
  162.     CALL_P    dt_gazld
  163.     CALL_P    dt_to_k
  164.  
  165.     KAKU    word ptr 300,1
  166.     KAKU    word ptr 302,2    ;2曲目のデータセット
  167.     CALL_P    dt_ongak
  168.  
  169.     KAKU    word ptr 300,2    ; 音楽チェンジ
  170.     CALL_P    dt_end1
  171.  
  172.     jmp    re_paint
  173.  
  174.  
  175. dt1:
  176.     call    sub_edi
  177.     dw    0
  178.     db    'C_3B',0
  179. dt2:
  180.     call    sub_edi
  181.     dw    0
  182.     db    'C_1B',0
  183. dt3:
  184.     call    sub_edi
  185.     dw    0
  186.     db    'CONTEN',0
  187.  
  188. dt4:
  189.     call    sub_edi
  190.     dw    0
  191.     db    'F_COL',0
  192.  
  193. dt5:
  194.     call    sub_edi
  195.     dw    0
  196.     db    'B_COL',0
  197.  
  198. dt6:
  199.     call    sub_edi
  200.     dw    0
  201.     db    'MOTO_E',0
  202.  
  203. dt7:
  204.     call    sub_edi
  205.     dw    0
  206.     db    'NAO_E',0
  207. dt8:
  208.     call    sub_edi
  209.     dw    0
  210.     db    'SETB',0
  211. dt9:
  212.     call    sub_edi
  213.     dw    0
  214.     db    'SETE',0
  215. dt10:
  216.     call    sub_edi
  217.     dw    0
  218.     db    'I_MK',0
  219. dt11:
  220.     call    sub_edi
  221.     dw    0
  222.     db    'EZZ',0
  223. dt12:
  224.     call    sub_edi
  225.     dw    0
  226.     db    'BT1',0
  227. dt13:
  228.     call    sub_edi
  229.     dw    0
  230.     db    'I_GA',0
  231.  
  232. dt_bu1:
  233.     call    sub_edi
  234.     dw    0
  235.     db    'BU1',0
  236.  
  237. dt_i_ha:
  238.     call    sub_edi
  239.     dw    0
  240.     db    'I_HA',0
  241. dt_nao_g:
  242.  
  243.     call    sub_edi
  244.     dw    0
  245.     db    'NAO_G',0
  246. dt_fzz:
  247.     call    sub_edi
  248.     dw    0
  249.     db    'FZZ',0
  250.  
  251. dt_stop1:
  252.     call    sub_edi
  253.     dw    0
  254.     db    'STOP1',0
  255.  
  256. dt_gazld:
  257.     call    sub_edi
  258.     dw    0
  259.     db    'GAZLD',0
  260.  
  261. dt_switch:
  262.     call    sub_edi
  263.     dw    0
  264.     db    'SWITCH',0
  265.  
  266. dt_ongak:
  267.     call    sub_edi
  268.     dw    0
  269.     db    'ONGAK',0
  270.  
  271. dt_end1:
  272.     call    sub_edi
  273.     dw    0
  274.     db    'END1',0
  275. dt_to_k:
  276.     call    sub_edi
  277.     dw    0
  278.     db    'TO_K',0
  279. dt_roll:
  280.     call    sub_edi
  281.     dw    0
  282.     db    'ROLL',0
  283.  
  284.  
  285.  
  286. look_me:
  287.      call sub_esi         ; esi 固定です｡
  288.      dd 0,0
  289.      dw     1    ; ここが 1 の物は open start です｡
  290.          dw      0
  291.          dw  140,24,0,450,15,0,0,0
  292.  
  293.  
  294.  
  295. boxdt:
  296.     call sub_edi                               ; edi 固定です｡
  297.         dw    2,70,24,0,0,70,0,15,0,0
  298. mozidt:
  299.     call sub_edi
  300.            dw    0        ;screen_no
  301.            dw    15      ; mozi_color
  302.            dw    4      ; 書き出し位置  x
  303.            dw    0      ;          y
  304.            dw    70      ; next offset x
  305.            dw    0      ; next offset y
  306.     
  307.                dw   2      ; gyo suu
  308.                    db    ' 制作',0
  309.                    db    ' 整理',0
  310.                 dw 0,0
  311.  
  312.  
  313. ; [count][sz_x][sz_y][off_x][off_y][+x][+y][f_col][b_col][s_no]
  314.  
  315.  
  316. p_call:
  317.     M_P_CALL
  318. p_set:
  319.     M_P_SET
  320.  
  321.